home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / Lex.cpt / Lex / CAP.LXI < prev    next >
Text File  |  1990-04-22  |  525b  |  34 lines
  1.  /*
  2.  * capitalise things
  3.  */
  4.  
  5. letter = [A-Z];
  6. open = ["'(];
  7. close = ["')];
  8. any = [\0-\377];
  9. eos = [.?!];
  10. %{
  11. extern  char    *token(char **);
  12.  
  13. main()
  14. {
  15.         while (yylex())
  16.                 ;
  17. }
  18. %}
  19. %%
  20. %{
  21.         register char *cp;
  22.         char *et;
  23. %}
  24.  
  25. (".PP\n"|eos close* " "* ("  "|"\n"))open*letter {
  26.                 cp = token(&et);
  27.                 while (cp < et)
  28.                         putchar(*cp++);
  29.         }
  30. $letter {putchar(token(0)[1]);}
  31. letter  {putchar(*token(0)+'a'-'A');}
  32. any     {putchar(*token(0));}
  33. %%
  34.